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I.  INTRODUCTION 

— ^7 This  report  describes  the  design  principles,  detailed  circuit  diagram, 
and  software  for  a  multiple  sample  automated  preconcentrator  (MSAP).  The 
MSAP  is  designed  to  accept  up  to  12  samples  of  seawater.  It  can  be 
expanded  to  a  24-sample  system  without  major  modification  of  the  circuit 
design.  The  overall  system  includes  sample  bottles  containing  approxi¬ 
mately  250  ml  of  seawater  that  flows  through  a  chromatographic  cartridge 
which  extracts  dissolved  transition  and  heavy  metals.  The  metals  that  are 
loaded  on  the  cartridge  are  eluted  with  about  7  ml  of  a  2  N  HC1-0.1  N 
HNO3  mixture.  The  acid  medium  with  the  metals  is  injected  into  a 
graphite  furnace  for  analysis.  Nearly  all  components  of  the  flow  system 
are  constructed  of  Teflon  to  avoid  contamination.  Provisions  are  made  to 
wash  the  extraction  cartridge  at  appropriate  times  and  to  precondition  it 
between  samples.  Fluid  flow  through  the  system  is  controlled  by  nitrogen 
gas  pressure  at  5-15  psi  using  a  series  of  two-way  and  three-way  solenoid 
valves  that  are  controlled  by  a  CBM  4016  microcomputer. 

The  system  will  be  described  in  terms  of  a  typical  operation  cycle. 


The  system  consists  of  12  sample  modules,  three  types  of  cartridge  elution 
media,  and  the  nitrogen  pressure  system. ^Figure  1  illustrates  the  config¬ 
uration  with  three  of  the  twelve  sample  modules.  Table  1  provides  a  list 
of  all  solenoid  control  valves  in  the  system,  indicating  the  type  of  valve, 
a  descriptive  name,  and  its  function.  The  status  of  valves  in  module  #1 
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will  be  used  as  an  example  in  the  following  steps. 


A.  Seawater  Loading;  The  seawater  from  each  bottle  is  forced  through  a 


filter,  then  through  a  cartridge  by  energizing  the  solenoid  valve  VLO  to 
pass  a  pressurized  nitrogen  gas  (normally  between  5  to  15  psi).  In 
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Table  1.  Names,  types  and  functions  of  /alves. 


Valve 

Type3 

Funct ion 

Name 

h 

VLO 

2 

Supply  N2  pressure  to  entire  system 

Master  N2 

VL1 

2 

Off -on  control  of  Milli-Q  wash  eluent 

Milli-Q 

VL2 

2 

Off-on  control  of  Buffer  wash  eluent 

Buffer 

% 

VL4 

3 

Fill  Acid  Measuring  Reservoir  (AMR) 

AMR 

- 

VL5 

3 

or  deliver  acid  in  AMR  to  cartridge 
Select  ventilation  for  AMR  filling  or 

N2  for  acid  elution 

AMR  N2 

VL6 

3 

Select  AMR  for  acid  elution  or  acid 
bottle  for  acid  wash 

Acid  E/W 

VL7 

3 

Apply  N2  pressure  to  sample  manifold 

Sample  N2 

VL8 

3 

Direct  effluent  to  either  waste  or 
collection  for  module  #1 

Effluent 

1 

VL9 

3 

Direct  effluent  to  either  waste  or 
collection  for  module  #2 

Effluent 

2 

VL10 

3 

Direct  effluent  to  either  waste  or 
collection  for  module  #3 

Effluent 

3 

VL11 

3 

Direct  effluent  to  either  waste  or 
collection  for  module  #4 

Effluent 

4 

VL12 

3 

Direct  effluent  to  either  waste  or 
collection  for  module  #5 

Effluent 

5 

VL13 

3 

Direct  effluent  to  either  waste  or 

Effluent 

6 

% 

VL14 

3 

collection  for  module  #6 

Direct  effluent  to  either  waste  or 
collection  for  module  #7 

Effluent 

7 

i 

VL15 

3 

Direct  effluent  to  either  waste  or 
collection  for  module  #8 

Effluent 

8 

VL16 

3 

Direct  effluent  to  either  waste  or 
collection  for  module  #9 

Effluent 

9 

VL17 

3 

Direct  effluent  to  either  waste  or 
collection  for  module  #10 

Effluent 

10 

VL18 

3 

Direct  effluent  to  either  waste  or 
collection  for  module  #11 

Effluent 

11 

VL19 

3 

Direct  effluent  to  either  waste  or 
collection  for  module  #12 

Effluent 

12 

VUO 

3 

Select  Mllil-Q,  buffer,  or  acid  as 
eluent  for  module  #1 

Eluent  1 

VL21 

3 

Select  Milli-Q,  buffer,  or  acid  as 
eluent  for  module  #2 

Eluent  2 

VL22 

3 

Select  Milli-Q,  buffer,  or  acid  as 
eluent  for  module  #3 

Eluent  3 

VL23 

3 

Select  Milli-Q,  buffer,  or  acid  as 
eluent  for  module  #4 

Eluent  4 

VL24 

3 

Select  Milll-Q,  buffer,  or  acid  as 

Eluent  5 

eluent  for  module  #5 

* Two-way  valve  (2)  or  three-way  valve  (3)  or  two-way  valve  with  fast 
wash  out  (2FW) 
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Table  1.  continued. 
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Valve 

Type 

Function 

Name 

VL25 

3 

Select  Milli-Q,  buffer,  or  acid  as 
eluent  for  module  #6 

Eluent  6 

VL26 

3 

Select  Milli-Q,  buffer,  or  acid  as 
eluent  for  module  #7 

Eluent  7 

VL27 

3 

Select  Milli-Q,  buffer,  or  acid  as 
eluent  for  module  #8 

Eluent  8 

VL28 

3 

Select  Milll-Q,  buffer,  or  acid  as 
eluent  for  module  #9 

Eluent  9 

VL29 

3 

Select  Mllll-Q,  buffer,  or  acid  as 
eluent  for  module  #10 

Eluent  10 

VL30 

3 

Select  Milli-Q,  buffer,  or  acid  as 
eluent  for  module  #11 

Eluent  11 

VL31 

3 

Select  Milll-Q,  buffer,  or  acid  as 
eluent  for  module  #12 

Eluent  12 

VL32 

2FW 

Select  either  sample  or  eluent  as 
cartridge  Influent  for  module  #1 

Influent 

1 

VL33 

2FW 

Select  either  sample  of  eluent  as 
cartridge  Influent  for  module  #2 

Influent 

2 

VL34 

2FW 

Select  either  sample  of  eluent  as 
cartridge  influent  for  module  #3 

Influent 

3 

VL35 

2FW 

Select  either  sample  of  eluent  as 
cartridge  influent  for  module  #4 

Influent 

4 

VL36 

2FW 

Select  either  sample  of  eluent  as 
cartridge  Influent  for  module  #5 

Influent 

5 

VL37 

2FW 

Select  either  sample  of  eluent  as 
cartridge  influent  for  module  #6 

Influent 

6 

VL38 

2FW 

Select  either  sample  of  eluent  as 
cartridge  Influent  for  module  #7 

Influent 

7 

VL39 

2FW 

Select  either  sample  of  eluent  as 
cartridge  influent  for  module  #8 

Influent 

8 

VL40 

2FW 

Select  either  sample  of  eluent  as 
cartridge  Influent  for  module  #9 

Influent 

9 

VL41 

2FW 

Select  either  sample  of  eluent  as 
cartridge  Influent  for  module  #10 

Influent 

10 

VL42 

2FW 

Select  either  sample  of  eluent  as 
cartridge  Influent  for  module  #11 

Influent 

11 

VL43 

2FW 

Select  either  sample  of  eluent  as 
cartridge  influent  for  module  #12 

Influent 

12 

VL44 

2 

Off-on  control  of  waste  for  module 

Waste  1-6 

i 

#l-#6 

Off-on  control  of  waste  for  module 
#7— #1 2 


VL45 


2 


Waste  7-12 
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module  #1  VL32  is  set  to  connect  the  filter  and  the  cartridge.  VL8  is 
directed  to  waste.  The  corresponding  valves  of  the  other  sample  modules 
are  in  a  similar  configuration. 

The  cartridge  contains  8-hydroxyquinoline  that  is  chemically  bonded  to 
silica  gel.  The  chemically  bonded  8-hydroxyquinoline  forms  complexes  with 
trace  metals  and  retains  them  in  the  cartridge.  The  12  sample  bottles  are 
arranged  in  two  rows  of  six.  One  filter,  one  cartridge  and  three  valves 
(e.g. ,  valves  VL8,  20  and  32  for  sample  1)  form  the  basic  module  for  each 
sample.  Six  of  these  modules  are  arranged  in  a  row.  The  waste  water 
coming  out  of  a  row  are  combined  and  connected  to  a  two-way  valve  (Figure 
2 ,  one  of  the  VL44  and  VL45).  All  of  the  waste  water  is  combined  into  one 
stream.  Nitrogen  gas  is  forced  into  the  waste  stream.  .If  the  seawater 
loading  is  finished,  the  tubing  downstream  of  the  nitrogen  inlet  will  be 
empty.  Otherwise,  small  segments  of  seawater  will  keep  flowing  out  of  the 
tubing.  An  optical  sensor  is  mounted  on  the  tubing  to  detect  seawater. 
After  the  seawater  stops  coming  out  for  a  period  of  time  (ca.  30  sec.),  the 
loading  process  is  finished  and  the  control  goes  to  the  next  step. 

Before  the  seawater  loading  begins,  there  may  be  some  air  trapped  in 
the  tubing  between  filter  and  sample  bottle.  The  air  may  slow  down  or 
completely  stop  the  seawater  loading.  This  situation  is  avoided  by  filling 
each  sampling  tube  with  Milll-Q  (MQ)  water  (open  VL7  to  ventilation;  open 
VL1;  close  VL8  and  VL44;  connect  VL20  to  the  filter  via  VL32;  select 
Milli-Q  with  VL20). 

B.  MQ  Wash:  After  the  seawater  is  loaded,  the  cartridges  are  washed  with 
MQ-wmter  to  remove  salts  by  turning  on  the  valve  VL1,  connecting  VL20  to 
the  cartridge  via  VL32  and  selecting  MQ  with  VL20. 
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C.  Acid  Elution:  A  fixed  amount  of  acid  Is  passed  through  each  selected 
cartridge  to  elute  trace  metals  from  the  cartridge.  The  elution  is  per¬ 
formed  sequentially  to  process  all  selected  cartridges.  Each  of  the  valves 
(VL8-VL19)  has  been  turned  to  the  collect  position  just  before  the  acid 
elution  for  the  selected  cartridge  begins.  The  fixed  volume  of  acid  is 
obtained  by  filling  an  acid  measuring  reservoir  (Figure  3)  (VL4  energized 
and  VL5  de-energized). 

The  acid  sensor  is  an  optical  sensor  which  is  used  to  make  sure  that 
the  reservoir  is  filled.  A  short  time  delay  (ca.  0.5  sec)  between  the 
beginning  of  the  filling  and  the  activation  of  the  sensor  will  avoid  possi¬ 
ble  erratic  signals  produced  by  the  acid  residue  in  the  tubing  on  which  the 
sensor  is  mounted.  After  the  reservoir  is  filled,  VL5  is  energized  and  VL4 
is  de-energized  to  force  acid  out  of  the  reservoir  with  nitrogen  pressure. 
Each  of  the  valves  (VL20-VL47)  is  turned  to  a  proper  position  for  the  acid 
elution  of  a  specific  cartridge  (e.g.,  for  the  acid  elution  of  Cartridge  1, 
VL20  and  VL32  are  energized  and  others  are  de-energized). 

D.  Acid-Wash:  Trace  metal  residues  on  the  cartridges  are  washed  with 
add.  This  is  performed  by  turning  on  the  valve  VL6  (Figure  3)  for  a  fixed 
period  of  time  (VL20  and  32  are  energized). 

E.  MQ~W*eh:  The  cartridges  are  then  washed  with  MQ-water. 

F.  Buffer/MQ  Wash:  The  cartridges  are  washed  with  NaHC03  or  MQ  to  be 
ready  for  the  next  set  of  seawater  samples  by  turning  on  the  valve  VL1  or 
VL2,  respectively  (VL20  is  de-energized  and  VL32  is  energized). 
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II.  CIRCUIT  DESIGN 

The  MSAP  Is  to  be  controlled  by  a  Commodore  Business  Machines  (CBM) 

16K  or  32K  microcomputer  through  its  IEEE-488  Interface.  The  controlling 
program  is  written  in  BASIC.  The  MSAP  should  be  able  to  be  controlled  by 
other  computers  with  an  appropriate  interface.  Slight  modifications  to  the 
program  may  be  necessary. 

The  IEEE-488  primary  address  is  assigned  to  be  6.  It  can  be  changed 
by  changing  the  address  selection  jumpers  on  the  MSAP  interface  board.  To 
control  the  valves  using  the  CBM  computer,  first  open  a  logical  file  with  a 
primary  address  and  a  secondary  address.  For  example,  the  statement  OPEN 
1,6,0  specifies  that  logical  file  1  is  to  be  opened,  the  device  6  is  to  be 
addressed,  and  a  secondary  address  (SCG  00)  will  be  issued.  The  statement 

PRINT#1,CHR$(255)  sends  a  data  255  to  the  secondary  address  0  of  device  6. 

To  read  status  inforniatlon  from  the  MSAP,  one  can  use  the  GET#  statement. 

A.  Control  of  the  IEEE-488  Bus:  Chapters  3,  4,  and  5  of  the  book  PET  and 
the  IEEE  488  Bus  (GPIB)  provide  information  on  hardware,  sample  bus  trans¬ 
actions,  and  timing  sequences.  As  shown  in  Table  5-3  of  the  reference 
book  (page  84),  vrtien  the  statements  OPEN  5,5,2  and  PRINT#5, "TEST" ,  the 
computer  lowers  the  Attention  Line  (ATN),  places  a  byte  25}g  (for  primary 
address  5)  on  the  data  bus  and  lowers  the  data  valid  line  (DAV)  momentar¬ 
ily,  then  places  a  byte  62jg  (for  secondary  address  02)  and  lowers  the 
DAV  line. 

It  is  the  responsibility  of  each  of  the  devices  connected  to  the 

general  purpose  interface  bus  (GPIB)  to  decode  this  address  information  to 

see  if  it  is  selected.  If  the  device  is  selected,  it  should  be  ready  to 
accept  the  information  sent  out  by  the  computer.  Each  data  byte  sent  to  a 
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secondary  address  of  the  MSAP  is  stored  in  a  O-type  flip-flop  chip 
(74LS374).  There  are  maximum  of  15  secondary  addresses  corresponding  to 
120  data  ports  or  solen9id  valves  (15  x  8  bits  each).  At  the  present  time, 
45  valves  are  required  to  control  a  12  sample  system.  The  design  can  be 
extended  to  a  24  sample  system  without  major  modification  of  the  circuit 
design. 

Figure  4  shows  the  interface  circuit  diagram  for  the  control  and  data 
signals.  If  the  computer  is  powered  up,  the  interface  clear  signal  (IFC) 
goes  low  for  a  moment.  This  results  in  a  momentarily  low  signal  on  CLRSYS 
which  is  used  to  bring  all  valves  to  their  initial  deenergized  states.  A 
power  up  clear  for  the  MSAP  controller  is  also  implemented  by  using  an  RC 
circuit  (R1,C1)  to  generate  an  initially  low  signal  on  the  CLRSYS  line.  An 
override  switch  SHI  can  also  be  used  to  generate  a  low  signal  on  CLRSYS. 

The  Interface  circuit  of  the  MSAP  controller  responds  very  quickly  (all 
information  can  be  accepted  within  400  ns  after  the  falling  edge  of  the  DAV 
signal).  Therefore,  the  MSAP  controller  can  tell  the  computer  that  it  is 
ready  for  data  at  any  time.  This  is  achieved  by  sending  the  Not  Ready  For 
Data  (NRFD)  signal  to  the  computer  using  the  DAV  signal;  in  other  words, 
when  the  computer  raises  its  DAV  signal  to  a  high  level  to  prepare  sending 
the  following  byte,  the  MSAP  controller  sends  a  high  NRFD  signal  to  tell 
the  computer  that  it  is  ready  to  accept  another  byte.  The  Not  Data 
Accepted  (NDAC)  signal  sent  from  the  MSAP  controller  is  the  inverted  DAV 
signal.  As  soon  as  the  computer  lowers  its  DAV  signal  (to  tell  all  devices 
that  the  data  are  valid),  the  MSAP  controller  sends  a  high  level  signal  on 
NDAC  line  to  tell  the  computer  that  the  data  is  accepted. 

Let’s  suppose  that  the  statements  "OPEN  1,6,0"  and  "PRINT#1 ,CHRS(255)M 
are  to  be  executed:  Two  bytes,  26ig  (primary  address)  and  60}6 
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(secondary  address),  will  be  placed  on  the  GPIB  before  the  data  (255)  is 
sent.  In  order  to  distinguish  which  byte  is  being  sent,  a  shift  register 
(74LS95,DP)  is  used  (Figure  5).  This  is  done  by  loading  the  shift  register 
with  data  IIIO2  when  the  ATN  line  goes  low.  Qd~Qa  becomes  11102- 
The  shift  register  is  clocked  by  the  DAV^(data  valid,  input)  signal.  For 
example,  right  after  the  primary  address  is  placed  on  the  GPIB,  the  DAV 
line  goes  low  to  tell  all  devices  that  the  data  signals  are  correct.  The 
DAV*  (similar  to  DAV)  signal  clocks  the  shift  register  so  that  the 
outputs  Qrf-Qa  ■  11012.  A  low  on  the  output  is  used  to  identify 
the  primary  address  being  sent  when  the  DAV  signal  is  low.  When  the 
computer  sends  the  secondary  address,  the  DAVj  signal  clocks  the  shift 
register  again  and  the  output  of  the  shift  register  becomes  101 I2.  A  low 
on  the  output  Qc  is  used  to  signify  that  a  secondary  address  is  beipg 
sent  when  the  DAV  is  low.  The  output  Q4  is  to  identify  the  first  data 
byte  of  the  PRINT  statement. 

The  primary  address  data  is  compared  with  26ig.  If  they  are  the 
same,  the  data  input  of  74LS74,EP  is  high.  This  high  input  is  then  clocked 
and  stored  in  the  chip  and  the  inverting  Q  output  (the  listening  device 
select  LD6)  signal  becomes  low.  The  D-type  flip-flop  74LS273,BP  can  store 
the  secondary  address  information.  The  least  significant  three  bits  of  the 
secondary  address  is  decoded  with  a  chip  74LS138.CR  (a  3  to  8  line  decoder) 
to  generate  8  listening  secondary  device  select  (LSDS).  One  and  only  one 
of  the  eight  outputs  of  74LS138  can  be  low.  When  the  computer  sends  the 
first  data  byte  of  the  PRINT  statement,  the  data  are  stored  in  the 
corresponding  74LS374  chip  (Figure  6)  depending  on  which  output  of  the 
decoder  chip  is  true  (which  secondary  address  has  been  selected).  Each 
clock  input  signal  to  the  chips  <■  t  gated  with  the  LDS  signal  so 


that  only  when  the  computer  writes  information  to  the  MSAP  will  one  of  the 
74LS374  chips  be  clocked. 

At  the  end  of  the  PRINT  statement,  the  computer  lowers  the  ATN  line 
and  sends  a  universal  unlisten  (ULN)  signal  (3F^g)  to  the  data  bus  of 
GPIB  (page  84  of  the  reference  book),  the  LOS  signal  (Figure  5)  becomes 
high  (listening  device  is  not  selected)  because  the  data  3F}g  are  not 
equal  to  the  data  26}$  which  is  the  primary  address  byte  for  the  MSAP. 

When  a  "CLOSE”  statement  is  executed,  the  computer  lowers  the  ATN  line 
and  sends  26x6  as  the  primary  address  and  E0x6  (when  using  OPEN  1,6,0 
statement)  as  the  secondary  address  (page  70  of  the  reference  book).  The 
26x6  data  bring  the  LDS  signal  low.  The  higher  4  bits  of  the  secondary 
address  data  byte  (in  this  case,  it  is  Ex6)  are  compared  with  Ex6*  If 
they  match,  an  active  CLEAR  signal  is  generated  to  bring  the  LDS  signal 
high,  and  this  prevents  writing  of  data  to  the  74LS374  chips. 

To  read  data  from  the  MSAP,  first  open  a  logical  file  with  a  secondary 
address  (e.g. ,  OPEN  1,6,0),  and  then  use  the  GET#  statement  to  read  data. 

Table  5-11  of  the  reference  book  (page  120)  shows  the  bus  transaction 
for  the  GET#  statement.  When  the  computer  sends  the  data  46x6  on  the 
GPIB  bus  as  the  primary  address,  the  data  input  of  the  chip  74LS74  (Figure 
7)  becomes  high  and  the  Q  output  (Talking  Device  Select  TDS>  becomes  low. 
The  secondary  address  information  60x6  is  stored  in  the  D  flip-flop  chip 
74LS273,GT.  The  74LS138,ET  chip  is  used  to  select  the  proper  output  of  the 
talking  secondary  device  select (TSDS). 

After  this  point,  it  is  the  responsibility  of  the  talking  device  to 
control  the  data  bus.  The  MSAP  places  the  data  on  the  bus  after  the  ATN 
line  goes  high  (Figure  8).  The  MSAP  also  raises  the  DAV  line  until  a  high 
level  signal  of  the  NRFD  is  detected  (until  the  computer  says  ready  to 
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receive  data).  When  the  computer  tells  the  MSAP  that  the  data  are  accepted 
(NDAC  signal  goes  high),  the  MSAP  raises  the  DAV  line  and  releases  the 
control  on  the  data  and  control  bus  to  other  devices  (e.g.,  the  computer). 

The  optical  sensors  (Figures  2,  3  and  9)  detect  seawater  or  acid  in 
the  Teflon  tubing.  If  liquid  is  in  the  tubing  at  the  position  of  sensor, 
the  voltage  level  is  above  3.4  V;  otherwise,  it  is  below  0.6  V.  The 
Informations  provided  by  the  sensors  can  be  read  by  the  computer  using  the 
(XT#  statement.  These  informations  can  be  used  to  control  the  operation  of 
the  MSAP.  For  example,  during  the  seawater  loading  process  the  computer 
can  read  the  status  of  the  seawater  sensor  and  can  go  into  the  next  step  as 
soon  as  the  seawater  loading  step  is  finished. 

Figure  9  shows  the  circuit  for  driving  a  solenoid  valve  manufactured 
by  General  Valve  Corp.  These  valves  have  a  rating  of  12  V  and  0.21  A  and 
they  require  a  minimum  of  3  V  to  hold.  A  resistor  and  a  capacitor  is  added 
to  the  circuit  to  provide  enough  power  to  initially  energize  a  solenoid 
valve  and  to  cut  down  the  power  for  long  period  of  operation  (current  is 
cut  down  to  about  0.08  A).  A  7407  driver  gate  can  handle  0.04  A.  Although 
it  is  not  a  good  practice  to  tie  three  drivers  together,  it  is  more 
economical  to  use  the  7407  than  most  transistors  which  can  do  the  job,  and 
the  7407  driver  provides  better  noise  rejection  than  most  transistors.  The 
circuit  has  been  tested  for  more  than  one  million  operations  (On-Off) 
without  any  failure  (a  resistor  consuming  the  same  current  was  used  instead 
of  a  solenoid  valve  for  the  testing).  Detailed  descriptions  of  the 
physical  locations  of  the  chips  and  the  signals  on  connectors  can  be  found 
in  Appendices  A  and  B. 
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III.  SOFTWARE  DESIGN 

A  program  "MSAP;8/83"  has  been  written  to  control  the  MSAP.  After 
execution  of  the  program,  all  valves  are  restored  to  their  initial  states 
(all  valves  should  be  in  their  de-energized  initial  states  when  powered 
up).  The  operator  can  select  4  modes  of  operation: 

a.  To  process  sample. 

b.  To  fill  the  tubing  between  the  filter  and  the  sample  bottle  with  MQ 
water. 

c.  To  manually  control  valves  with  keyboard. 

d.  To  de-energize  all  valves. 

When  the  first  mode  is  selected,  the  operator  can  enter  the  timing 
parameters  for  each  step  from  a  disk  file  or  manually.  A  set  of  default 
values  are  provided  when  the  parameters  will  be  entered  manually.  The 
operator  can  then  change  any  parameters  and/or  save  the  parameters  to  a 
disk  file.  A  few  questions  will  be  asked  to  remind  the  operator  for 
preparing  the  preconcentration.  The  operator  can  choose  any  combination  of 
the  12  channels  to  process  samples.  The  program  will  output  the  status  of 
processing  to  the  screen  and  warn  the  operator  when  a  few  unexpected  things 
happened  (such  as  not  finished  seawater  loading  or  nitric  acid  filling 
after  a  certain  amount  of  time). 

The  subroutine  addresses,  the  assignment  of  the  order  of  valves  in  an 
array  and  the  program  listing  can  be  found  in  Appendices  C,  D  and  E. 
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"Figure  s.  Aod  A System. 
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APPENDIX  B 

PIN  ASSIGNMENT  OF  CONNECTORS 


CONNECTOR  #1  CONNECTOR  #2  CONNECTOR  //3 

(TO  COMPUTER)  (TO  VALVES  AND  (TO  VALVES  AND 

SENSORS)  SENSORS) 


PIN 

FUNCTION 

PIN 

FUNCTION 

PIN 

FUNCTION 

1 

DI01 

1,2 

VLO 

1,2 

VL24 

2 

D102 

3,4 

VL1 

3,4 

VL25 

3 

D103 

5,6 

VL2 

5,6 

VL26 

4 

D104 

7,8 

AMR  EMPTY 

7,8 

VL27 

E+,  E" 

5 

NOT  USED 

9,10 

VL4 

9,10 

VL28 

6 

DAV 

11,12 

VL5 

11,12 

VL29 

7 

NRFD 

13,14 

VL6 

13,14 

VL30 

8 

NDAC 

15,16 

VL7 

15,16 

VL31 

9 

IFC 

18,19 

VL8 

18,19 

VL32 

10 

NOT  USED 

20,21 

VL9 

20,21 

VL33 

11 

ATN 

22,23 

VL10 

-22, 23 

VL34 

12 

NOT  USED 

24,25 

VL11 

24,25 

VL35 

13 

DI05 

26,27 

VL1 2 

26,27 

VL36 

14 

DI06 

28,29 

VL13 

28,29 

VL37 

15 

DI07 

30,31 

VL14 

30,31 

VL38 

16 

DI08 

32,33 

VL15 

32,33 

VL39 

17 

NOT  USED 

34,35 

VL16 

34,35 

VL40 

18 

GND 

36,37 

VL17 

36,37 

VL41 

19 

GND 

38,39 

VL18 

38,39 

VL42 

20 

GND 

40,41 

VL19 

40,41 

VL43 

21 

GND 

42,43 

VL20 

42,43 

VL44 

22 

GND 

44,45 

VL21 

44,45 

VL45 

23 

GND 

46,47 

VL22 

46,47 

AMR  FULL 

E+,  E~ 

24 

GND 

48,49 

VL23 

48,49 

AMR  FULL 

D+,  D" 

17,50 

AMR  EMPTY 

17,50 

NOT  USED 

D+,  D- 


CONNECTOR  #4 
(TO  SEAWATER  SENSOR) 

PIN  FUNCTION 


1,2  SEAWATER  SENSOR 

E+,  E" 

3,4  SEAWATER  SENSOR 

D+,  D- 
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APPENDIX  C 

DESCRIPTION  OF  MSAP  SOFTWARE  PARAMETERS 

TO>  CONTROL  MSAP,  FIRST  SPECIFY  THE  CONTENT  OF  CO(I)  AND  SPECIFY 
THE  SECONDARY  ADDRESS  (E.G.  SA=0)  THEN  GOSUB  15000 

1 : ENERGIZE  A  VALVE;  0:DEENERGIZE  A  VALVE 

ALL  TWO  WAY  VALVES  ARE  NORMALLY  CLOSED.  VALVE  TYPE  2FW  SPECIFIES  A 
TWO  WAY  VALVE  WITH  FAST  WASHOUT  FEATURE. 


WR 

VALVE  TYPE 

ARRAY 

PURPOSE 

SA=0 

2 

C0(0) 

NITROGEN  GAS 

2 

COO) 

MQ 

2 

00(2) 

BUFFER 

X 

C0(3) 

CLEAR  SEAWATER  SENSOR 

3 

COO) 

0 :RESERVOIR 

TO  CARTRIDGE 

1 :ACID  BOTTLE  TO  RESERVOIR 

3 

C0(5) 

0  :RESERVOIR 

TO  NITROGEN 

1  :  RESERVOIR 

TO  WASTE 

3 

C0(  6) 

0: MANIFOLD 

TO  ACID  MEASURING  RESERVOIR 

1  :  MANIFOLD 

TO  ACID  BOTTLE 

3 

CO(7 ) 

0: SAMPLE  BOTTLE  TO  VENTILATION 

1 :  SEAWATER 

TO  NITROGEN 

WR 

VALVE  TYPE 

CARTRIDGE 

!  #  ARRAY 

PURPOSE 

SAsI 

3 

1 

C0(  8) 

0:  TO  WASTE;  1:  TO  COLLECT 

3 

2 

C0(  9) 

SAME 

3 

3 

C0(10) 

SAME 

3 

4 

coon 

SAME 

3 

5 

C0( 12) 

SAME 

3 

6 

C0( 13) 

SAME 

3 

7 

C0( 14) 

SAME 

3 

8 

COO  5) 

SAME 

SA*2 

3 

9 

C0( 16) 

SAME 

3 

10 

C0( 17) 

SAME 

3 

11 

C0( 1 8) 

SAME 

3 

12 

C0(-t9) 

SAME 

3 

1 

C0( 20) 

0 .‘CARTRIDGE  TO  MQ/BUFFER 

1: CARTRIDGE  TO  ACID 

3 

2 

C0( 21 ) 

SAME 

3 

3 

C0( 22) 

SAME 

3 

4 

C0(23) 

SAME 

SA>3 

3 

5 

C0(24) 

SAME 

3 

6 

C0(25) 

SAME 

3 

7 

C0( 26 ) 

SAME 

3 

8 

C0(27) 

SAME 

3 

9 

C0( 28) 

SAME 

3 

10 

C0(29) 

SAME 

3 

11 

C0( 30) 

SAME 

3 

12 

C0(31) 

SAME 

WR 

VALVE  TYPE  CARTRIDGE 

#  ARRAY 

SAs4 

2FW 

1 

CO  C  32 ) 

2FW 

2 

C0(33) 

2FW 

3 

C0(34) 

2FW 

4 

C0( 35) 

2FW 

5 

C0( 36) 

2FW 

6 

C0( 37) 

2FW 

7 

CO(38) 

2FW 

8 

C0( 39) 

SA*5 

2FW 

9 

C0( 40) 

2FW 

10 

C0(41 ) 

2FW 

11 

C0( 42) 

2FW 

12 

C0(43) 

2 

C0( 44 ) 

2 

C0(45) 

C0(46) 

C0(47) 

TOTAL 

#  OF  VALVES  OF  3-WAY 

:  28,  OF  2 

RD 

BIT 

INFORMATION 

SA*0 

0 

CONDUCTIVITY 

SENSOR ; 

1 

AMR  FULL; 

2 

CONDUCTIVITY 

SENSOR ; 

3 

AMR  EMPTY; 

4 

SEAWATER  SENSOR; 

5 

NOT  USED 

6 

NOT  USED 

7 

NOT  USED 

PURPOSE 

0: SEAWATER  TO  CARTRIDGE 
1 :ACID/MQ/BUFFER  TO  CARTRIDGE  OR 
MQ  TO  SAMPLING  TUBE 
SAME 
SAME 
SAME 
SAME 
SAME 
SAME 
SAME 

SAME 

SAME 

SAME 

SAME 

WASTE  FOR  SAMPLE  #  1-6 
WASTE  FOR  SAMPLE  #  7-12 
NOT  USED 
NOT  USED 


-WAY:  17 


0:HAD  BEING  CONDUCTING 
0 :ACID  IN  THE  TUBING 
0 : CONDUCTING 
0:ACID  IN  THE  TUBING 
0:SEAWATER  IN  THE  TUBING 


APPENDIX  D 


SUBROUTINE  ADDRESS  PURPOSE 

2000  SEAWATER  LOADING 

3000  MQ  WASH 

4000  ACID  ELUTION 

5000  ACID  WASH 

6000  MQ  WASH  BEFORE  BUFFER 

7000  BUFFER  OR  MQ  WASH 

9000  INPUT  SAMPLE  # 

10000  ENTER  PARAMETERS  MANUALLY 

11000  INPUT  PARAMETERS  FROM  DISK 

12000  DEFINITIONS  OF  STRINGS  AND  VARIABLES 

13000  SAVE  PARAMETERS  TO  DISK 

14000  LOAD  PARAMETERS  FROM  DISK 

15000  WRITE  CONTROL  SIGNALS  TO  TMPC 

16000  DEENERGIZE  ALL  VALVES  AND  RESET  TIMER 

17000  PRINT  TIME  LEFT 

17500  CLEAR  PREVIOUS  TIMING  PRINTING 

18000  READING  STATUS  BYTE 

18500  CONVERTS  STATUS  BYTE  TO  INDIVIDUAL  BITS 

19000  CONTROL  INDIVIDUAL  VALVE  WITH  KEYBOARD 

21000  FILL  FILTER  AND  TUBING  TO  SAMPLE  BOTTLE  WITH  MQ 


STRING  OR 

VARIABLE  NAME 

SUBJECT 

DIM  ; 

SM( 12) 

SAMPLE  # 

TT 

TOTAL  TIME 

TL 

TIME  LEFT 

SI 

NUMBER  OF 

SAMPLE  USED 

STRING 

CONTENTS 

VARIABLE  FOR  THE  TIMING 

A1 $( 1 ) 

LOADING 

A1(1) 

A1$(2) 

MQ  WASH 

A 1 C  2 ) 

A1$(3) 

ACID  ELUTION 

A1C3) 

A1$(4) 

ACID  WASH 

•  • 

A1  (4) 

A1$(5) 

MO  WASH  BEFORE 

BUFFER 

A1(5) 

A1$(6) 

BUFFER  WASH 

A1  (6) 
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APPENDIX  E 


10  PRINT-3" 

28  PRINT“MSAP; 1/1/83“ 

25  PRINT-REV  6/38/83,  8/5/83" 

30  PRINT-THIS .PROGRAM  CONTROLS  THE  TRACE" 

40  PRINT-METAL  PRECONCENTRATOR, ■ 

50  PRINT-OUTPUTS  THE  STATUS  OF  PROCESS- 
60  PRINT-TO  SCREEN. " 

70  GOSUB  12800: REM  STRING,  PARAMETER  DEF  •  - 

80  GOSUB  16000- REM  DEENERGIZE  VALVES  AND  RESET  TIMER 

81  PRINT"": PRINT “l.  PROCESS  SAMPLES" 

82  PRINT-2.  FILL  FILTER  AND  TUBING  TO  SAMPLE" : PRINT"  BOTTLE  WITH  MO  WATER" 

83  PRINT"3.  CONTROL  INDIVIDUAL  VALVE  WITH  KEYBOARD?" 

84  PRINT-34.  DEENERGIZE  ALL  VALVES" 

85  INPUT  I 

86  ON  I  GOTO  90,21086, 13800,83 

87  GOTO  81 

88  GOSUB  16800: GOTO  31 

90  PRINT"" -PRINT-ENTER  TIMING  PARAMETERS  MANUALLY?" 

100  INPUT  ft* 

110  IF  LEFTt<At,l>*"N"  GOTO  140 
120  GOSUB  10800 
138  GOTO  150 

140  GOSUB  11000: REM  PftRM  from  DISK 
15©  FOR  1*1  TO  SH :  SM<  I  >*1  •'  NEXT  I 


160  PRINT"  ": PRINT-SAMPLES  OH  POSITION?" 

170  INPUT A* 

180  IF  LEFTt<At,lX>"N"  GOTO  266 
198  GOTO  160 

200  PRINT"  ":PRINT"MQ, BUFFER, ACID  FILLED?" 

210  INPUT At 

220  IF  LEFTt<At, 1 X>"N"  GOTO  240 
238  GOTO  200 

240  PRINT"  ": PRINT "NITROGEN  ON  AND  BELOW  26  PSI?" 

250  INPUT At 

260  IF  LEFTt<At, 1>*"V"  GOTO  288 
270  GOTO  248 

288  PRINT"  ": PRINT" ALL  SAMPLE  POSITIONS  USED?" 

290  INPUTAt 

300  IF  LEFTt<At,lX>-V"  GOTO  348 
310  FOR  1-1  TO  12 : SM< I >*1 : NEXT  I 
320  Sl*12 
338  GOTO  360 

340  PRINT"  " : PR I NT "PLEASE  ANSWER  V/N" 

350  GOSUB  9088 

360  PRINT"  -:PRINT"READV  TO  START?" 

370  INPUT  At 

388  IF  LEFTt<At,l)0-V"  GOTO  368 
390  FOR  1*1  TO  6:B1<I)*A1<I>:NEXT 
400  B1<3)-S1*A1(3> 

410  TIt*"000600":REM  INIT  TIMER 

420  TT*A1<1>+A1<2>+81#A1<3)+A1<4)+R1C5>+A1 <6> :REM  TOTAL  TIME  REQUIRED 
430  TL-TT:REM  TIME  LEFT 
440  PR  I  NT  *3" 

450  PRINT"  ":PRINTTAB<27)JA2t<4> : PRINT"  " 

460  FOR  1*1  TO  7 
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478  PRINTA1*<I> ••PRINT”  " :NEXT  I 
488  GOSUB  2808: REM  LORDING 
498  GOSUB  3068 : REM  MQ  WRSH 
588  GOSUB  4080: REM  ACID  ELUTION 
318  GOSUB  5886 -REM  ACID  NASH 
528  GOSUB  6008 : REM  MQ  BEFORE  BUFFER 
538  GOSUB  7860: REM  BUFFER  OR  MQ  WASH 

540  PRINT"  PRINT" ALL  DONE 

541  FOR  1*1  TO  5:PRINT"rr;a«$<7>;a**<15>:F0R  N*1  TO  160: NEXT  N:NEXT  I 
558  GOSUB  16008  REM  REENGERIZE  VALVES  AND  RESET  TIMER 

560  PRINT"  " : PR I NT "NEXT  BATCH?"  f 

578  INPUT  R$ 

588  IF  LEFT#<A$,1>-"V"  GOTO  688 
390  END 

608  PRINT"  ":PRINTTAB<24>; "MINUTES" 

681  FOR  1-1  TO  6:PRINTA1*<I>;TAB<24>;SPC<2>;A1<I>:NEXT  I 
602  PRINT"  ":PRINTA2*<A2>;SPC<1>;R2*<3> 

685  PRINT"  ": PRINT “NEW  PARAMETERS?" 

610  INPUT  A* 

628  IF  LEFT*<A*,1>*"V"  GOTO  88 

638  GOSUB  16888 : REM  DEENERGIZE  VALVES  AND  RESET  TIMER 
648  GOTO  168 
2088  REM  ««*** 

2018  REM  LOADING 
2628  T1*TI 

2030  C0<8)*1 :FOR  1*1  TO  47:C0<I>*0:NEXT  I 
2835  C0<44)*1:C8<45>*1 
2848  GOSUB  15588 
2058  PRINT-m* 

2868  J-l  GOSUB  17088 
2878  IF  T3<0  GOTO  2238 
2888  C*8 
2098  D-0 

2180  SR*8: GOSUB  18008 

2110  IF  Dl<2>*8  GOTO- 2868: REM  HATER  BETWEEN  SENSOR 
2128  C-C+l 
2130  D-IK1 

2148  IF  1K10  GOTO  2188 
2158  IF  068  GOTO  2198 
2168  J*1 : GOSUB  17008 
2178  IF  T3<0  GOTO  2238 
2180  GOTO  2090 
2196  PRINT"*" 

2288  GOSUB  17190 

2210  PRINTVnT  1 

2220  GOTO  2330 

2230  PRINfTCMRf<7);  "XLOADING  TIME  RUN  OUT;  TYPE  SCS  TO  CONTINUE" ; CHRS<15> ; "TT 

2250  08 

2260  SO0  GO6UB  18808 
2278  IF  B1  <2>*0  THEN  C-8 
2280  GET  At 

2298  IF  At*"C"  GOTO  2328 
2308  OC+1 

2318  IF  C<68  GOTO  2268 

2320  PRINTCHRt<15);  "1  ";  "nTT 

2338  J*1 :TL*TL-B1<J> 

2348  RETURN 

JWW  nSn  WfPP 

3810  REM  MQ  WRSH 

3838  C0<0>*1 : C8<  1  >*1  •' FOR  1*2  TO  31  :C0<I)*8  NEXT  I 
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3035  FOR  1*32  TO  47:C0<I>*1 :NEXT  I 

3030  C0<44>*1C0<45>*1 

3040  GOSUB  15500 

3845  Tl-TI 

3650  PRINT  VT 

3060  J*2:OOSUB  17800 

3070  IF  T3>6  GOTO  3060 

3071  C0<0)*1 ;FOR  1*1  TO  47:C8<I)*0  NEXT  I 

3072  GOSUB  15500 
3000  TL-TL-B1 < J> 

3090  RETURN 
4000  REM  ***** 

4016  REM  ACIB  ELUTION 

4020  C0<8>*1  -FOR  1*1  TO  47:C8CI>*0:NEXT  I 

4025  C0<44)*1 :C0<45)*1 

4838  PRINT-rr 

4040  OOSUB  15500 

4050  PRINT-.T 

4060  FOR  15*1  TO  12 

4870  IF  SM<I5>*0  GOTO  4350 

4000  C0<4>— 1  :C0<5>*1 

4098  SM-0: 60SUB  15000: REM  FILL  UP  RCIB  MEASURING  RESERVOIR 
4100  T1*TI 

4105  J*3:  OOSUB  17000  M-8  GOSUB  4580 
4110  T2*TI 

4120  IF  T2-TK60  GOTO  4110 
4130  T2-TI 

4146  IF  T2-T1>A1<3>*3600  GOTO  4330 

4145  IF  T2-T1M800  GOTO  4338 

4150  SA-0: GOSUB  18000 

4160  IF  B1<1>*0  GOTO  4196 

4170  J*3: GOSUB  17000 

4175  H-8G0SUB  4508 

4180  GOTO  4138 

4190  C0<4>*0:SR*0:  GOSUB  15800:  REM  RESERVOIR  TO  CARTRIDGE 

4210  C0<I5*7>*1 :C8<I5+19>*1 : C0< 15+31 >*1 :C8<5>*0: GOSUB  15500 

4220  REM  CARTRIGE  TO  COLLECT.  TO  ACID.  NITROGEN  TO  RESERVOIR 

4230  T5*TI :REM  STARTING  TIMING  ELUTION 

4240  J*3= GOSUB  17080 

4245  M*0: GOSUB  4508 

4250  S-0: GOSUB  18888 

4255  IF  D1<3)*1  GOTO  4260:  REM  nhR  EMPTY 

4256  GOTO  4240 
4268  TE-TI 

4265  T2*TI :  IF  <T2~TE>/<TE-T3»*8. 1  GOTO  4288 
4278  GOTO  4265 

4280  C8< I5+7>*8 : C0< I5+1S>*8 : C0< 15+31 >*0 

4298  FOR  SA*1  TO  5= GOSUB  15000: NEXT  SA:REM  CARTRIDGE  TO  WASTE.  TO  MQ/BUFFER 
4380  TL-TL-A1 <3> : B1 <3>*B1 <3>-Al <3> 

4310  NEXT  15 
4320  GOTO  4355 

4338  PRINT-BRCID  FILLING  PROBLEM  ON  I5;CNR*(15>;  "ITT 
4335  FOR  11-1  TO  10:PRINTCHR*<7>;  TTSCHR^aS) 

4340  FOR  12-1  TO  50: NEXT  I2:NEXT  II 
4345  TL-TL-A1<3>:B1<3>*B1<3>-A1<3> 

4347  C8<4>*0 : C0<5>*0 : Sft*8 : GOSUB  15888 

4358  NEXT  15 

4355  M*1 : GOSUB  4508 

4357  C0<0>*1 ;F0R  1*1  TO  47:C8<I>*0:NEXT  TGOSUB  15508 

4360  RETURN 
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4508  J«3;J1«7-J 

4510  FOR  1-1  TO  J1  :PRIHT*mT  :HEXT  I 
4515  IF  M*1  GOTO  4525 

4520  PRINTTT ;  “WWIWWHWHWWW " ;  15;  CHR$<  15) 

4521  GOTO  4530 

4525  PRINT TT*  J  ■tlWWWIWWWir ; "  " ; CUR$<  15> 

4530  FOR  1*1  TO  J1 -PRINT"*"  =NEXT  I 
4540  RETURN 

JOW  InLTI  WkW 

5016  REM  ACID  MftSH 

5028  C0<0>*1  :F0R  1*1  TO  7 : C0< I >*6 : HOT  I:C8<6>*1 

5030  FOR  1*8  TO  ISM  C0<I>*0:  NEXT  I 

5040  FOR  1*20  TO  47 :  C8<  I  )*1  •'  NEXT  I 

5045  C0<44>*1 :C0<45)*1 

5050  GOSUB  15509 

5070  Tl-TI 

5080  PRINT  “IT 

5890  J*4: GOSUB  17008 

5108  IF  T3>0  GOTO  5090 

5110  C8<6)*0:FOR  1*20  TO  47 : C8< I >*8 : NEXT  I 
5120  FOR  Sft-0  TO  5 : GOSUB  15060: NEXT  s ft 
5138  TL-TL-B1CJ) 

5140  RETURN 

6000  ren 

6010  REN  NQ  BEFORE  <BUFFER/HQ> 

6020  C8<0>*1 :C8<1)*1 :F0R  1*2  TO  7:C0<I>*8HEXT  I 

6025  FOR  1-8  TO  31 :C8<I>*0=NEXT  I=FOR  1=32  TO  47:C0<I)*1  NEXT  I 

6026  C0<44>*1 :C0<45>*1 
6830  GOSUB  15508 
6040  Tl-TI 

6050  PRINTTT 

6060  J*5: GOSUB  17000 

6870  IF  T3>8  GOTO  6060 

6888  C8<0>*1 :F0R  1*1  TO  47:C0<I>*0:NEXT  I  GOSUB  15506 
6090  TL-TL-B1 < J> 

6100  RETURN 

fWP  KOI 

7010  REN  BUFFER  OR  HQ 

7020  C0<6>-1 

7830  IF  82*1  GOTO  7860 

7840  C0(1)*1  :C0<2)*0:REM  HQ  HRSH 

7050  GOTO  7078 

7060  C0<l>*0:C8<2>*l:REH  BUFFER  URSH 
7070  FOR  1-4  TO  31 : C0< I >*0 : NEXT  I 

7075  FOR  1*32  TO  47:C8<I>*1 =NEXT  I 

7076  C0<44>*1 :C0<45>*1 
7080  GOSUB  15580 
7085  Tl-TI 

7898  J*6: GOSUB  17880 
7100  IF  T3>0  GOTO  7898 

7110  C8<1>*0:C0(2)*0:FOR  1*32  TO  47 : C0< I >-0 = NEXT  1 
7120  GOSUB  15508 
7138  TL-TL-BKJ) 

7135  GOSUB  17258 
7140  RETURN 
9800  REN  ***** 

9010  REN  INPUT  S8NPLE  • 

9020  81-*:F0R  1-1  TO  12 
9030  PRINT-S8NPLE  f;I 
9040  INPUT  ft* 
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9050  IF  LEFT*<ft*, 1>*-V"  GOTO  9108 

9060  SM<I>*8 

9070  GOTO  9208 

9108  SM<I>*1 :S1*S1+1 

9208  NEXT  I 

9210  FOR  1*1  TO  12 

9220  ft*-"  “ : IF  SM<I>*1  THEN  A*="*" 

9230  PRINT-SAMPLE  *"J I;TAB<12>;ft*:NEXT  I 
9240  PRINT-VES  OR  NO- 
9250  INPUT  0$ 

9260  IF  LEFT*<A*,1>*-V  THEN  RETURN 
9270  GOTO  9020 
10000  REM  ikHBk 

10016  REM  INPUT  PARAMETERS  MANUALLY 
10020  fll  <  1 >*25 : fll <2)*2 : fil <3>*2 
10830  R1 <4)*2 : fll <5>*1 : A1 <6>*2 
10040  A2-1 

10050  PRINT*  “ : PRINT-DEFAULT  VALUE  FOR" ;TAB<24>; -MINUTES* 

10055  GOSUB  16060 

10056  GOTO  10110 
10060  FOR  1*1  TO  6 

10070  PRINTR1*<I);TAS<24);SPC(2);A1<I):NEXT  I 
10080  PRINT"  " :PRINTft2*<A2>;8PC<l>;fl2*<3> 

10090  PRINT-  PRINT- YES  OR  NO?" 

10100  INPUT  ft* 

10105  RETURN 

10118  IF  LEFT*<A*,1>«-N-  THEN  GOTO  10166 
10120  PRINT-  " : PR I NT "SAVE  PflRflMETERS  TO  A  DISK?" 

10130  INPUT  ft* 

10140  IF  LEFT*<ft*« 1>*"V"  THEN  GOSUB  13808 
10150  RETURN 
10160  FOR  1*1  TO  6 

10170  PRINTftl*<I>JSPC<l>Jfll*<10>: INPUT  fiftKI)*fl 
10180  NEXT 

10190  PRINT- l: BUFFER* HASH  2  =  MQ  WASH- 
10200  INPUT  A2 

10205  IF  A2*l  GOTO  18210: IF  A2*2  GOTO  18218 
18286  GOTO  10198 
10210  GOTO  10058 

11800  rem  mm 

11010  REM  LOADING  PARAMETERS  FROM  DISK 

11815  GOSUB  11028 

11016  GOTO  11070 

11020  PRINT-FILE  NAME : " 

11036  INPUT  ft* 

11046  PRINT-DRIVE  #• 

11050  INPUT  E* 

1106O  DI*-B*«€* 

11065  RETURN 

11078  OPEN  1, 8,8, DI*+" :"+fl*+", SEQ.REftD- 
11088  FOR  1*1  TO  6:INPUTtl,ftl<I>:HEX7  I 
11085  I NPUT#1,A2: DOLOSE# 1 
11090  PRINT-  -:PRINTTAB<24>; -MINUTES* 

11100  GOSUB  18660: REM  PRINT  PARAMETERS,  GET  YES  OR  NO 

11110  IF  LEFT*<ft*,l>«-V-  THEN  RETURN 

11120  GOTO  11820 

12000  REM  mm 

12010  REM  DEFINITIONS 

12820  ftl*< 1 >*"LOADING" 

12838  A1#<2>*"MQ  MASH- 


32 


12048  fllf <3>*"RCID  ELUTION* 

12088  A1*<4>*"ACID  MASH" 

12860  A1*<5>*"MQ  MASH  BEFORE  BUFFER/MQ" 

12065  A1*<7>*"T0TAL  TIME  LEFT  :■ 

12070  A1$<6>*"BUFFER/M8  MASH" 

12088  A1$<10>*“TIME  <MINUTES>" 

12090  A2*<1>*"BUFFER  MASH" 

12108  A2*<2>*“MQ  MASH* 

12110  A2$<3>*"F0R  NEXT  RUN* 

12115  A2*<4>*"TIME  LEFT" 

12120  SN-12 
12138  DIM  SM<12> 

12135  BIN  C0<48> 

12136  Cl<8)-.5 

12137  FOR  1*1  TO  8:C1<I>-C1<I-1>*2:NEXT  I 

12138  FOR  1*1  TO  8= NEXT 
12148  RETURN 

13008  GOSUB  1 1 020 : REM  INPUT  DRIVES  AND  FILE  NAME 
13010  OPEN  l,8,8,Dl*+*:*+A$+*,SEQ,MRITE" 

13820  FOR  1*1  TO  6:PRINT#1#A1<I> :NEXT  I 

13838  PRINT#1>A2 

13048  BCL0SE81 

13850  RETURN 

15008  REM  ***** 

15810  REM  MRITE  CONTROL  SIGNALS  TO  TMPC 
15020  C*SA«8 
15830  D*0:E*1 

15040  FOR  I*C  TO  C+7:D*C0<I>*C1<E)+D:E"E+1  -'NEXT  I 
15650  OPEN  6/6/SA 
15068  PRINT#6,CHR*<D> 

15870  CLOSE  6 
15088  RETURN 

15508  FOR  SA*1  TO  5= GOSUB  15008- NEXT  SA 
15518  SA*0: GOSUB  15000 
15528  RETURN 
16080  REM  ***** 

160O1  PRINT*  "  ••  PRINT*LEENERGIZE  VALVES" 

16018  FOR  1*0  TO  47 : C8< 1 )*0 : NEXT  I :REM  DEENERGIZE  VALVES 
16015  TI**"000000" 

1602O  GOSUB  15588 
16038  RETURN 

1 MDA  DPM  ***** 

1  f  Wv  KcTI  ffPff 

17818  REM  PRINT  LEFT  TIME 
17028  T2*TI 
17038  T-T2-T1 
17040  T3-B1<J>*68*60-T 
17850  S*INT<T/60> 

17860  M*S/60:M1*TL“M;M2*INT<M1  >  :  S1*INT(GW<M1-M2)+.  4> 

17070  S3-INT<T3/60>:S3-S3+1 :M3*INT<S3/60>:S4«IHT<S3“€0*M3> 

17880  REM  PRINT*S";Sj*M";M; "M1*;M1 :PRINT"M2";M2; "S1*;S1 

mm  iFjT3<^  „  a«$<i5> 

17128  JVM*'  ®MWWlM,W,lMMWWWtt>r  ,Sl,CHR$<lo> 

17130  FOR  1*1  TO  Jl: PRINT-TIT: NEXT  I 
17148  PRINT-.T 
17156  GOSUB  17258 

17168  PRINT-T ; ’WMMWMMmHMWmmr ;H3;*:";S4; CHR»<  15> 
17178  FOR  1*1  TO  J1 • PRINT"M"  =  NEXT  I 
17188  RETURN 
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17198  GOSUB  17258 

17200  J1*7-J:F0R  1*1  TO  J1 :  PRINT  "rTTT*  =  NEXT  I 
17210  PRINT TT* 

17220  GOSUB  17250 

17230  FOR  1*1  TO  J1 : PRINT "W : NEXT  I 
17240  RETURN 

17260  RETURN*  '  '  >CHRt<15> 

18080  REN  »»»»» 

18810  REM  READING  STATUS 
18020  OPEN  6,6,SA 
18830  6ET#6,At 
18035  CLOSE  6 

18040  IF  AKCHR*<0>  GOTO  18070 
18050  A*ASC<R$> 

18060  GOTO  1808G 
18070  A*0 
10008  GOSUB  18508 

1G098  RETURN 
l&SM  DCM  jUnk^jk 

-  18510  REM  CONVERTS  A  NUMBER  TO  INDIVIDUAL  BITS 

18511  Cl<0)*.5 

18512  FOR  1*1  TO  S:C1<I)*C1 <1-1 >*2- NEXT  I 
18528  FOR  1*8  TO  7 

18530  J*7~I:ll*J+l 
18540  D1 < J>*INT <A/C1 < 1 1 >  > 

18550  A«A-D1<J>*C1<I1> 

18568  NEXT  I 
18578  RETURN 

19000  PRINT "XONTROL  INDIVIDUAL  VALVE  DV  KEYBOARD" -PRINT" " 

'  19010  PRINT-ENTER  VALVE  STATUS  FROM  DISK?" 

19028  INPUT  At 

19038  IF  A$*"V"  GOTO  19586 

19040  FOR  1-0  TO  47 : £0< I )*6 : NEXT  I 

19060  GOSUB  19051 :  GOTO  19076 

19051  GOSUB  19380 

19055  PRINT- 

19060  PRINT-ENTER  VALVE  #  OR  TYPE  3E5  TO  EXECUTE,  aSS  TO  SAVE, "  ; 

19061  PRINT" C«  TO  CONTINUE  CHANGING,  ftS  TO  STOP" 

19062  PRINT"  flL*  TO  LOAD,  SK9  TO  EXIT" 

19063  RETURN 
19070  INPUT  At 

19075  PRINT"": PRIHT-m 
19080  IF  At-*E-  GOTO  19268 

19001  IF  At*"S"  GOTO  19666 

19002  IF  At*-X"  GOTO  81 

19003  IF  Rt*"L"  GOTO  19566 

19004  IF  At*-C-  GOTO  19766 
19009  IF  At*-0-  GOTO  19695 

19090  A*VAL<At> 

19091  IF  A*6  GOTO  19126 

19092  GOTO  19166 
19095  A*6:G0T0  19110 

19100  IF  ACS  OR  A>47  GOTO  19126 
19110  IF  C8<A>*6  GOTO  19125 
19120  C0< A)*0 : B*8 : GOTO  19126 

19125  C0<A)-1 ;B*1 

19126  PRINT"!  II I  III I  IT  II 1115" 

19130  GOTO  19050 

19200  GOSUB  15506 :  PRINT  TIT  :  GOTO  19676 


34 


19380  PRINT" ":PRINT"0: OFF  1= OH- 
19310  PRINT-  - 

19320  PRINT-  6-  7  :FOR  1*0  TO  7 : PRINTC@< I >  J  : NEXT  I : PRINT"  " 

19330  PRINT"  8-15  ";=FOR  1*8  TO  15:PRINTC0<I>; :NEXT  I •PRINT"- 
19340  PRINT" 16-23  =FOR  1*16  TO  23:PRINTC0<I>; :NEXT  I ; PRINT" " 

19350  PRINT-24-31  :F0R  1*24  TO  31 : PRINTCGCI >; = NEXT  I : PRINT" ” 

19360  PRINT-32-39  ";:FOR  1*32  TO  39:PRIN7C6(I >J  'NEXT  I = PRINT"" 

19370  PRINT-46-47  ";:FOR  1*40  TO  47:PRINTC0<I>;  UCXT  I = PRINT-" 

19380  RETURN 
19500  GOSUB  11029 

19510  OPEN  l,8,8,DI#+":"+Fi#+",SEG,REFlD" 

19520  FOR  1*0  TO  47:  INF*UT#1>C0<I>  :NEXT  I 
19538  CLOSE  1 

19531  PRINT"!3MMIMMn  :GOTO  19650 

19600  GOSUB  11O20:  REM  INPUT  DRIVE#  FIND  FILE  NONE 

19610  OPEN  1, 8. 8, DI#+“:"+fi#+“>SEQ, WRITE- 

19628  FOR  1*0  TO  47:PRINT#1,C0<I>:HEXT  I 

19630  CLOSE  1 

19640  GOTO  19531 

19700  PRINT"  m" 

19705  GET  ft#: IF  fl#*"Q"  GOTO  19806 
19730  ft-ft+1 : IF  ft>*48  GOTO  19800 
19740  C0(ft>*B:PRINTft 

19750  PRiNT-rrnrm minn- : gosub  19051:  goto  19705 

19800  PRINT"  IBMf  I  III  1 1 1 1 II 1 1 TT* :  GOTO  19Q56 

21000  PRINT“IFILL  FILTER  ftND  TUBING  TO  SAMPLE  DOTTLE  WITH  MQ  WATER" 
21010  GOSUB  16060: REM  DEENERGIZE  VALVES  AND  RESET  TIMER 
21020  GOSUB  15506 

21030  PRINT— : PRINT" INPUT  TIME  BELfiV  <SEC>  FOR  FILLING  UP" 

21040  INPUT  ft 

21845  C0<7>*1 : FOR  1*32  TO  43:C6<I)*1  NEXT  I 
21046  GOSUB  15506 
21050  T*TI 
21060  GET  ft# 

21070  IF  ft#*"X"  GOTO  21560 
21080  IF  TI>T+60*Fl  GOTO  21568 
21090  GOTO  21060 
21500  GOTO  80 
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